﻿' BasecampVB - http://www.tidbitsandtangents.com
' Copyright (c) 2009
' by Rusty S. Swayne
'
' Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated 
' documentation files (the "Software"), to deal in the Software without restriction, including without limitation 
' the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and 
' to permit persons to whom the Software is furnished to do so, subject to the following conditions:
'
' The above copyright notice and this permission notice shall be included in all copies or substantial portions 
' of the Software.
'
' THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
' INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
' DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
' SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
' SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
' WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
' THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

Namespace DAL

    Public Class AccountDetails

        Public Sub New( _
            ByVal account_id As Integer, _
            ByVal name As String, _
            ByVal account_holder_id As Integer, _
            ByVal ssl_enabled As Boolean, _
            ByVal email_notification_enabled As Boolean, _
            ByVal time_tracking_enabled As Boolean, _
            ByVal updated_at As DateTime)

            Me.account_id = account_id
            Me.name = name
            Me.account_holder_id = account_holder_id
            Me.ssl_enabled = ssl_enabled
            Me.email_notification_enabled = email_notification_enabled
            Me.time_tracking_enabled = time_tracking_enabled
            Me.updated_at = updated_at

        End Sub

#Region "Properties"

        ''' <summary>
        ''' id of Basecamp account
        ''' </summary>
        Private _account_id As Integer
        Public Property account_id() As Integer
            Get
                Return _account_id
            End Get
            Set(ByVal value As Integer)
                _account_id = value
            End Set
        End Property

        ''' <summary>
        ''' Your Company
        ''' </summary>
        Private _name As String
        Public Property name() As String
            Get
                Return _name
            End Get
            Set(ByVal value As String)
                _name = value
            End Set
        End Property

        Private _account_holder_id As Integer
        Public Property account_holder_id() As Integer
            Get
                Return _account_holder_id
            End Get
            Set(ByVal value As Integer)
                _account_holder_id = value
            End Set
        End Property

        Private _ssl_enabled As Boolean
        Public Property ssl_enabled() As Boolean
            Get
                Return _ssl_enabled
            End Get
            Set(ByVal value As Boolean)
                _ssl_enabled = value
            End Set
        End Property


        Private _email_notification_enabled As Boolean
        Public Property email_notification_enabled() As Boolean
            Get
                Return _email_notification_enabled
            End Get
            Set(ByVal value As Boolean)
                _email_notification_enabled = value
            End Set
        End Property


        Private _time_tracking_enabled As Boolean
        Public Property time_tracking_enabled() As Boolean
            Get
                Return _time_tracking_enabled
            End Get
            Set(ByVal value As Boolean)
                _time_tracking_enabled = value
            End Set
        End Property


        Private _updated_at As DateTime
        Public Property updated_at() As DateTime
            Get
                Return _updated_at
            End Get
            Set(ByVal value As DateTime)
                _updated_at = value
            End Set
        End Property


#End Region

    End Class

End Namespace